home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / bkwdsed.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  36 lines
  1. 1 REM     FLEXIBLE SCREEN EDITOR
  2. 2 REM BY LARRY ANDERSON  Q: LARRYA21
  3. 3 REM                       -    -
  4. 4 REM CURENTLY SET FOR RIGHT TO LEFT
  5. 5 REM
  6. 6 REM   NOT PERFECT, BUT A START...
  7. 7 REM
  8. 10 REM ** CURSOR POSITIONING ROUTINE:
  9. 15 REM SYS(LOC),XPOS,YPOS =RELOCATEABLE=
  10. 20 FORX=0TO19:READD:POKE49152+X,D:NEXT
  11. 30 DATA 32,253,174,32,158,183,134,255,32,253,174,32,158,183,164,255,24
  12. 40 DATA 76,240,255
  13. 50 REM CLEAR AREA & SETUP CURSOR SPRITE:
  14. 60 FORX=0 TO63:POKE832+X,0:NEXT
  15. 70 FORX=0 TO 9:READD:POKE832+X*3,D:NEXT
  16. 80 DATA 255,129,129,129,129,129,129,255,255,255
  17. 90 REM SET SPRITE POINTERS & SCN COLOR
  18. 100 POKE 2040,13:POKE 53269,1:POKE53271,0:POKE53275,0:POKE53276,0
  19. 110 POKE 53277,0:POKE 53280,11:POKE53281,0:PRINT"[147]"
  20. 120 REM ** CURSOR DIR AND STARTING COL.
  21. 130 D$="[157]":SC=38:SYS49152,SC,0
  22. 140 REM LOCATE CURSOR LOCATION ON SCREEN & UPDATE SPRITE COLOR...
  23. 150 X=PEEK(211):Y=PEEK(214):POKE53287,PEEK(646):IFX>39THENX=X-40
  24. 160 REM COMPUTE SPRITE COORD. AND PLOT
  25. 170 SX=(40*(X>39)+X)*8+24:POKE53249,Y*8+50
  26. 180 POKE53248,(SXAND255):POKE53264,-(SX>255)
  27. 190 REM CLEANER GET RTN - LESS GARBAGE COLLECTIONS
  28. 200 IF PEEK(198)=0THEN WAIT198,1
  29. 210 GETA$:C=ASC(A$)
  30. 220 REM **START LINES FROM RIGHT INSTEAD LEFT
  31. 230 IFC=13ORC=147ORC=19ORC=141 THEN PRINTA$;:SYS49152,SC,PEEK(214):GOTO 150
  32. 240 REM **ALLOW FOR NORMAL CURSOR MOVEMENT & COLOR CHANGE...
  33. 250 POKE202,0:POKE216,0:IF C<32 OR(C>127ANDC<160)THENPRINTA$;:GOTO 150
  34. 260 REM PRINT CHAR. AND MOVE CURSOR
  35. 270 PRINTA$;:POKE212,0:POKE216,0:PRINT"[157]"D$;:GOTO 150
  36.